home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / ques_221.zip / SAMPLES.ZIP / DEMOS.ZIP / ARITH.Q-A next >
Text File  |  1990-11-25  |  553b  |  44 lines
  1. ChangeColor 7 0
  2. ClearScreen 
  3.  
  4. SetVar 1 "10"
  5. SetVar 2 "20"
  6.  
  7. Display "10 + 20 = "
  8. Add 1 2 3
  9. ListAnswer 3
  10.  
  11. Display "10 - 20 = "
  12. Sub 1 2 3
  13. ListAnswer 3
  14.  
  15. Display "10 * 20 = "
  16. Mul 1 2 3
  17. ListAnswer 3
  18.  
  19. Display "20 / 10 = "
  20. Div 2 1 3
  21. ListAnswer 3
  22.  
  23.  
  24.  
  25. Display "||You don't have to use 3 different variables: ||"
  26.  
  27. SetVar 1 "50"
  28. SetVar 2 "25"
  29.  
  30. Display "50 + 25 = "
  31. Add 1 2 1
  32. ListAnswer 1
  33.  
  34. SetVar 1 "50"
  35. SetVar 2 "25"
  36.  
  37. Display "50 - 25 = "
  38. Sub 1 2 2
  39. ListAnswer 2
  40.  
  41. Display "||THE END!|"
  42. Display "Press any key: "
  43. GetChar 10
  44.